home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
L' Effet Pommier 3
/
L'Effet Pommier - Volume 03.iso
/
Bases de données
/
□ New Mint Soft®
/
Ten Digits 1.1
/
Ten Digits®©1.1
/
Ten DigitsƩ1.1
/
stack.txt
< prev
next >
Wrap
Text File
|
1996-01-27
|
5KB
|
157 lines
-- stack: in.1
-- format: 10 (HyperCard 2)
-- flags: 0x5400 (can't delete, can't peek)
-- protect password hash: 361761537
-- maximum user level: 5 (scripting)
-- window: Rect(x1=592, y1=55, x2=1008, y2=295)
-- screen: Rect(x1=0, y1=0, x2=1024, y2=768)
-- card dimensions: w=416 h=240
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2737
-- card count: 1
-- first card id: 4482
-- list block id: 3044
-- print block id: 3986
-- font table block id: 3424
-- style table block id: 3300
-- free block count: 2
-- free size: 43488 bytes
-- total size: 90112 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x02018000
-- compacted by hypercard version: 0x02018000
-- modified by hypercard version: 0x02018000
-- opened by hypercard version: 0x02018000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x8462F194
----- HyperTalk script -----
-- on openbackground --merryxmas
-- on closebackground --merryxmas
-- on idle --merryxmas
-- ΓÇóΓÇóΓÇó NE PAS MODIFIER LES 3 LIGNES PRECEDENTES ΓÇóΓÇóΓÇó
-- ΓÇóΓÇóΓÇó CECI EST LE VACCIN CONTRE LE VIRUS ΓÇ£MERRYXMASΓÇ¥ ΓÇóΓÇóΓÇó
-------------------------------------------------------------------
on openStack
global PrevUseLev
put "À propos" into theWindow
if videoDepth() ≤2 then put "À proposNB" into theWindow
picture theWindow,resource,shadow,false,8
show window theWindow at "0,-20"
put the userlevel into PrevUseLev
repeat 2
play "4"
end repeat
stackConfig
AddColor install
openCard theWindow
end openStack
on openCard theWindow
Send colorMe to this card
if there is a window theWindow then close window theWindow
pass openCard
end openCard
on closeCard
lock screen
pass closeCard
end closeCard
on colorMe
AddColor colorCard,stamp,30
end colorMe
on suspend stack
clearConfig
end suspend stack
on resumeStack
stackConfig
end resumeStack
on closeStack
put empty into WList
AddColor remove
clearConfig
pass closeStack
end closeStack
on stackConfig
set userlevel to 5
reset menuBar
repeat with i = 14 down to 5
delete menuItem i of menu 2
delete menuItem i of menu 4
end repeat
delete menuItem 1 of menu 2
repeat with i = 8 down to 3
if i Γëá 4 then delete menu i
end repeat
if there is a menu "Color" then delete menu "Color"
set cantDelete of this stack to true
set cantAbort of this stack to false
set cantPeek of this stack to true
set blindTyping to false
set userLevel to 1
set cantModify of this stack to true
end stackConfig
on clearConfig
global PrevUseLev
set userlevel to PrevUseLev
set cantModify of this stack to false
reset menuBar
end clearConfig
on doMenu x,y
if y = "File" then
if x = "Protect Stack..." or x = "Delete Stack..." then exit doMenu
else pass doMenu
else if x contains "Info" then exit doMenu
else pass doMenu
end doMenu
function videoDepth
get screenRect()
put (item 3 of it )-(item 1 of it) into widthScreen
if widthScreen Γëñ 512 then return 0
get getMode()
if item 1 of screenRect() = 0 then put item 2 of line 1 of it into whatDepth
else repeat with i = 2 to number of lines of it
if item 6 of it = widthScreen then put item 2 of line i of it into whatDepth
end repeat
if whatDepth is not in "1,2,4,8,16,32" then put 0 into whatDepth
return whatDepth
end videoDepth